100 REM -- TEST PATTERN --
105 PRINT"[147]"
110 PRINT"OUTPUT TO SCREEN OR PRINTER (S/P)     S[157][157][157]";:INPUTA$
115 IF A$="S" THEN Z=1.33:Z1=0:Z2=26.4:GOTO130:REM VALUES FOR SCREEN OUTPUT
120 IF A$<>"P" THEN110
125 Z=1.208:Z1=2.01:Z2=38.24:REM VALUES FOR PRINTER OUTPUT
130 VERIFY 1:LET0,1
135 CONT
140 REM -- SET UP CONSTANTS --
145 REM -- XT AND YT SET X AND Y AXES. XS AND YS SET START OF X AND Y AXES.
150 REM -- EX AND EY ARE EXPANSION FACTORS FOR X AND Y COORDINATES.
155 XT=159:YT=100:XS=Z1:YS=0:EX=80:EY=80
160 REM -- CALIBRATE X COORDINATES --
165 FORX=XS TO319 STEP5*Z
170 Y=YT:WAITX,Y:NEXTX
175 FORX=XS TO319 STEP10*Z
180 FORY=YT-1 TO YT+1:WAITX,Y:NEXTY:NEXTX
185 FORX=Z2TO319 STEP50*Z
190 FORY=YT-2 TO YT+2:WAITX,Y:NEXTY:NEXTX
195 REM -- CALIBRATE Y COORDINATES --
200 FOR Y=YSTO199 STEP5
205 X=XT:WAITX,Y:NEXTY
210 FOR Y=YS TO 199 STEP 10
215 FOR X=XT-1 TO XT+1:WAITX,Y:NEXTX:NEXTY
220 FOR Y=YS TO 199 STEP50
225 FOR X=XT-3 TO XT+3:WAITX,Y:NEXTX:NEXTY
249 REM -- TEST PATTERN GRAPH --
250 FOR A=0 TO 2*(null) STEP.02
260 X=EX*COS(A):Y=EY*SIN(A)
270 X1=Z*X+XT:Y1=Y+YT:WAITX1,Y1:NEXTA
280 FOR B=-EY TO EY STEP 2*EY
290 FORX=-EX TO EX:Y=B
300 X1=Z*X+XT:Y1=Y+YT:WAITX1,Y1:NEXTX:NEXTB
310 FORC=-EX TO EX STEP 2*EX
320 FOR Y=-EY TO EY:X=C
330 X1=Z*X+XT:Y1=Y+YT:WAITX1,Y1:NEXTY:NEXTC
999 REM -- SCREEN OR HARDCOPY --
1000 GET A$:IF A$="" THEN1000
1010 PRINT "[147]":VERIFY 0:PRINTCHR$(14)
1020 PRINT"HARDCOPY (Y/N)    N[157][157][157]";:INPUTA$:IFA$="N" THEN1080
1030 IFA$<>"Y"THEN1010
1040 PRINT"SINGLE OR DOUBLE WIDTH (S/D)    S[157][157][157]";:INPUTA$
1050 IFA$="S" THEN POKE2,1:GOTO1070
1060 POKE2,2:IFA$<>"D"THEN1040
1070 VERIFY 1:SYS52224
1080 VERIFY 0:PRINTCHR$(14):LIST